home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 1
/
Cream of the Crop 1.iso
/
UTILITY
/
TASEXAM6.ARJ
/
TRADING.TAS
< prev
next >
Wrap
Text File
|
1991-06-05
|
1KB
|
33 lines
{ Written by Jim Camenos, May 29, 1991, Prodigy code VNGH10A
looks at current trading range over past 50 days + volume for break-outs
}
#max_quotes 51
#OUTPUT_FILE 'TRADING.LST'
if QUOTE_COUNT < 51 then RETURN; { Skip short stocks MM 6/5}
tx: array;
tx=TR();
gosub true_range;
if first_ticker then
begin
writeln('This module looks at todays volume to be >= 2 times past 50 days');
writeln('Also looks for todays trading range to be >= 2 times past 50 days\n');
writeln('Read your charts before making any investment decisions\n\n');
writeln(' Trading Range Closing Prices VOLUME');
writeln(' Avg Today Yesterday Today Average Today');
end;
if int(tr_sum)<>0 then
writeln(ticker,' ',fullname,avg_tr,tx[0],c[-1],c,' ',vo,' ',(v[0]
));
return;
:true_range
avg_tr = sum(tx,50)/50;
if tx[0] >= avg_tr*2 then
begin
vo = sum(v,50)/50;
if v[0] > vo*2 then tr_sum=1 else tr_sum=0;
end;
else
tr_sum = 0;
return;